home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / dev_libs / feelin040718 / demos / pens.e < prev    next >
Text File  |  2004-08-03  |  2KB  |  90 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. DEF feelinbase:PTR TO feelinbase
  6.  
  7. PROC main()
  8.    DEF app,win,ligher,darker
  9.  
  10.    ligher := 's:1,s:2,s:6'
  11.    darker := 's:2,s:4'
  12.  
  13.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  14.       app := AppObject,
  15.          FA_Application_Title,        'demo_Pens',
  16.          FA_Application_Version,      '$VER: demo_Pens 01.00 (2003/12/15)',
  17.          FA_Application_Copyright,    '©2000 - 2003, Olivier LAVIALE',
  18.          FA_Application_Author,       'Olivier LAVIALE <HaploLaMain@aol.com>',
  19.          FA_Application_Description,  'Pens...',
  20.          FA_Application_Base,         'DEMO_PENS',
  21.  
  22.          Child, win := WindowObject,
  23.             FA_ID,            "MAIN",
  24.             FA_Window_Title,  'Feelin : Pens',
  25.             FA_Window_Open,   TRUE,
  26.  
  27.             Child, HGroup, FA_Font, 'Garnet/16',
  28.                Child, VGroup, FA_ColorScheme, ligher,
  29.                   Child, HGroup,
  30.                      Child, SimpleButton('Lighter...'),
  31.                   End,
  32.  
  33.                   Child, VGroup, FA_ColorScheme, ligher,
  34.                      Child, HGroup,
  35.                         Child, SimpleButton('Lighter...'),
  36.                      End,
  37.  
  38.                      Child, VGroup, FA_ColorScheme, ligher,
  39.                         Child, HGroup,
  40.                            Child, SimpleButton('Lighter...'),
  41.                         End,
  42.  
  43.                         Child, VGroup, FA_ColorScheme, ligher,
  44.                            Child, HGroup,
  45.                               Child, SimpleButton('Lighter...'),
  46.                            End,
  47.                         End,
  48.                      End,
  49.                   End,
  50.                End,
  51.  
  52.                Child, VGroup, FA_ColorScheme, darker,
  53.                   Child, HGroup,
  54.                      Child, SimpleButton('Darker...'),
  55.                   End,
  56.  
  57.                   Child, VGroup, FA_ColorScheme, darker,
  58.                      Child, HGroup,
  59.                         Child, SimpleButton('Darker...'),
  60.                      End,
  61.  
  62.                      Child, VGroup, FA_ColorScheme, darker,
  63.                         Child, HGroup,
  64.                            Child, SimpleButton('Darker...'),
  65.                         End,
  66.  
  67.                         Child, VGroup, FA_ColorScheme, darker,
  68.                            Child, HGroup,
  69.                               Child, SimpleButton('Darker...'),
  70.                            End,
  71.                         End,
  72.                      End,
  73.                   End,
  74.                End,
  75.             End,
  76.          End,
  77.       End
  78.  
  79.       IF app
  80.          F_DoA(win,FM_Notify,[FA_Window_CloseRequest,TRUE, app, FM_Application_Shutdown,0])
  81.          F_DoA(app,FM_Application_Run,NIL)
  82.          F_DisposeObj(app)
  83.       ELSE
  84.          PrintF('Unable to create application\n')
  85.       ENDIF
  86.  
  87.       CloseLibrary(feelinbase)
  88.    ENDIF
  89. ENDPROC
  90.